home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 August / Macworld (1997-08).dmg / Serious Demos / Crimson Demo / Crimson Demos / File Info / Initial < prev    next >
Text File  |  1997-06-17  |  317b  |  12 lines
  1. Global Dummy As Integer
  2.  
  3.         * GetAppCount returns the number of files dropped onto this
  4.         * application. Reject if none dropped.
  5.     If GetAppCount()=0
  6.         Dummy=MsgBox("Drag a file onto the FileInfo application","End","")
  7.         End
  8.     Endif
  9.     FInfoForm.OpenWindow
  10.     Do Process_File
  11.       FInfoForm.ShowWindow
  12.